#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;

sub recurse($) {
    my($path) = @_;

    ## append a trailing / if it's not there
    $path .= '/' if($path !~ /\/$/);

    ## print the directory being searched
    print "DIR: ", $path,"\n";

    $path =~ s/(\s)/\\\1/g;
    print "DIR=: ", $path,"\n";


    ## loop through the files contained in the directory
    for my $eachFile (glob("$path".'*')) {
        print "Item:", $eachFile,"\n";

        ## if the file is a directory
        if( -d "$eachFile") {
            ## pass the directory to the routine ( recursion )
            recurse($eachFile);
        } else {

            ## print the file ... tabbed for readability
            if ($eachFile =~ m/.*txt$/) {
                print "\t","Text: \n";
                qx{rm -v "$eachFile"};
            } else {
                # qx{ mediainfo "$eachFile" > "$eachFile.txt" };
            }
        }
    }
}

## initial call ... $ARGV[0] is the first command line argument
recurse($ARGV[0]);

